Anfang:
SCREEN 2,640,256,2,2
WINDOW 2,,,0,2
DIM t(15)
Aufbau:
PALETTE 0,0,0,0
PALETTE 1,0.93,0.2,0
PALETTE 2,1,0.13,0.93
PALETTE 3,1,1,0.34
PALETTE 4,0,0,0
PALETTE 5,0.73,0.73,0.73
PALETTE 6,1,1,1
PALETTE 7,0.73,1,0
LINE (0,10)-(640,10),2
COLOR 2,0:PRINT "               Disketten - Verwaltung - by - Benny - Benzn "
LINE (0,33)-(640,33),2
COLOR 3,0:LOCATE 4,2:PRINT "N"
LOCATE 4,3:PRINT "a"
LOCATE 4,4:PRINT "m"
LOCATE 4,5:PRINT "e"
COLOR 1,0:LOCATE 4,6:PRINT ":"
LOCATE 4,50:PRINT "Datum:";DATE$
LINE (0,53)-(640,53),2
COLOR 3,0:LOCATE 6,1:PRINT "                    Edieren des inhaltes der Diskette"
LINE (0,213)-(640,213),2
COLOR 3,0:LOCATE 28,1:PRINT "                      -I-N-F-O-R-M-A-T-I-O-N-E-N-"
LINE (0,225)-(640,225),2
LOCATE 30,2:PRINT "        F1 = Edieren  F2 = Laden  F3 = New  F4 = Drucken  F5 = Quit"

loop:
ko=0
taste$=INKEY$
IF taste$=CHR$(129) THEN GOTO add
IF taste$=CHR$(130) THEN GOTO loa
IF taste$=CHR$(131) THEN GOTO neu
IF taste$=CHR$(132) THEN GOTO dru
IF taste$=CHR$(133) THEN SYSTEM
GOTO loop

add:
COLOR 2,0:LOCATE 30,15:PRINT "Edieren"
COLOR 3,0
LOCATE 4,7:LINE INPUT "";diskname$
OPEN "o",#1,diskname$
LOCATE 8,2:LINE INPUT "";inhalt$
IF inhalt$="e" THEN GOTO kap
LOCATE 9,2:LINE INPUT "";inhalt1$
IF inhalt1$="e" THEN GOTO kap
LOCATE 10,2:LINE INPUT "";inhalt2$
IF inhalt2$="e" THEN GOTO kap
LOCATE 11,2:LINE INPUT "";inhalt3$
IF inhalt3$="e" THEN GOTO kap
LOCATE 12,2:LINE INPUT "";inhalt4$
IF inhalt4$="e" THEN GOTO kap
LOCATE 13,2:LINE INPUT "";inhalt5$
IF inhalt5$="e" THEN GOTO kap
LOCATE 14,2:LINE INPUT "";inhalt6$
IF inhalt6$="e" THEN GOTO kap
LOCATE 15,2:LINE INPUT "";inhalt7$
IF inhalt7$="e" THEN GOTO kap
LOCATE 16,2:LINE INPUT "";inhalt8$
IF inhalt8$="e" THEN GOTO kap
LOCATE 17,2:LINE INPUT "";inhalt9$
IF inhalt9$="e" THEN GOTO kap
LOCATE 18,2:LINE INPUT "";inhalt10$
IF inhalt10$="e" THEN GOTO kap
LOCATE 19,2:LINE INPUT "";inhalt11$
IF inhalt11$="e" THEN GOTO kap
LOCATE 20,2:LINE INPUT "";inhalt12$
IF inhalt12$="e" THEN GOTO kap
LOCATE 21,2:LINE INPUT "";inhalt13$
IF inhalt13$="e" THEN GOTO kap
LOCATE 22,2:LINE INPUT "";inhalt14$
IF inhalt14$="e" THEN GOTO kap
LOCATE 23,2:LINE INPUT "";inhalt15$
kap:
WRITE#1,inhalt$
WRITE#1,inhalt1$
WRITE#1,inhalt2$
WRITE#1,inhalt3$
WRITE#1,inhalt4$
WRITE#1,inhalt5$
WRITE#1,inhalt6$
WRITE#1,inhalt7$
WRITE#1,inhalt8$
WRITE#1,inhalt9$
WRITE#1,inhalt10$
WRITE#1,inhalt11$
WRITE#1,inhalt12$
WRITE#1,inhalt13$
WRITE#1,inhalt14$
WRITE#1,inhalt15$

CLEAR

COLOR 3,0:LOCATE 30,15:PRINT "Edieren"
CLOSE #1

GOTO loop

loa:
ko=1
COLOR 2,0:LOCATE 30,29:PRINT "Laden"
COLOR 3,0
LOCATE 4,7:LINE INPUT "";diskname$
ON ERROR GOTO fehler
OPEN diskname$ FOR INPUT AS #1
INPUT#1,inhalt$
INPUT#1,inhalt1$
INPUT#1,inhalt2$
INPUT#1,inhalt3$
INPUT#1,inhalt4$
INPUT#1,inhalt5$
INPUT#1,inhalt6$
INPUT#1,inhalt7$
INPUT#1,inhalt8$
INPUT#1,inhalt9$
INPUT#1,inhalt10$
INPUT#1,inhalt11$
INPUT#1,inhalt12$
INPUT#1,inhalt13$
INPUT#1,inhalt14$
INPUT#1,inhalt15$

CLOSE #1
LOCATE 8,2:PRINT inhalt$
LOCATE 9,2:PRINT inhalt1$
LOCATE 10,2:PRINT inhalt2$
LOCATE 11,2:PRINT inhalt3$
LOCATE 12,2:PRINT inhalt4$
LOCATE 13,2:PRINT inhalt5$
LOCATE 14,2:PRINT inhalt6$
LOCATE 15,2:PRINT inhalt7$
LOCATE 16,2:PRINT inhalt8$
LOCATE 17,2:PRINT inhalt9$
LOCATE 18,2:PRINT inhalt10$
LOCATE 19,2:PRINT inhalt11$
LOCATE 20,2:PRINT inhalt12$
LOCATE 21,2:PRINT inhalt13$
LOCATE 22,2:PRINT inhalt14$
LOCATE 23,2:PRINT inhalt15$
COLOR 3,0:LOCATE 30,29:PRINT "Laden" 

GOTO loop

neu:
LOCATE 30,41:COLOR 2,0:PRINT "New" 
s=0
FOR o=1 TO 16
s=s+1
LOCATE 7+s,2:PRINT "                                                                            "
NEXT o
LOCATE 4,7:PRINT "                   "
COLOR 3,0:LOCATE 30,41:PRINT "New"
GOTO loop

fehler:
BEEP:BEEP
GOTO loop

dru:
IF ko=1 THEN na$="Name:":fomo$=na$+disknam$ :ELSE na$="Name:":fomo$=na$+diskname$
LOCATE 30,51:COLOR 2,0:PRINT "Drucken"
OPEN "Par:" FOR OUTPUT AS 1
PRINT #1,"Name:"
PRINT #1,diskname$
PRINT #1,"      Text    "
PRINT #1,inhalt$
PRINT #1,inhalt1$
PRINT #1,inhalt2$
PRINT #1,inhalt3$
PRINT #1,inhalt4$
PRINT #1,inhalt5$
PRINT #1,inhalt6$
PRINT #1,inhalt7$
PRINT #1,inhalt8$
PRINT #1,inhalt9$
PRINT #1,inhalt10$
PRINT #1,inhalt11$
PRINT #1,inhalt12$
PRINT #1,inhalt13$
PRINT #1,inhalt14$
PRINT #1,inhalt15$
CLOSE 1
COLOR 3,0:LOCATE 30,51:PRINT "Drucken"
GOTO loop